home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE3 / SCRIBBLE / Examples / lua-logo < prev    next >
Text File  |  2002-07-05  |  975b  |  52 lines
  1. -- lua-logo.lua
  2.  
  3. RESOLUTION=512
  4.  
  5. z = BEGIN (arg[1].."_pdf")
  6.  
  7.  
  8. z:set_info("Creator", "lua-logo.lua")
  9. z:set_info("Author", "Luiz Henrique de Figueiredo")
  10. z:set_info("Title", "Lua logo")
  11.  
  12. z:begin_page(RESOLUTION, RESOLUTION)
  13.  
  14. z:translate(RESOLUTION/2, RESOLUTION/2)
  15. z:scale(RESOLUTION/2/sqrt(2), RESOLUTION/2/sqrt(2))
  16.  
  17. -- planet
  18. z:setcolor("both", "rgb", 0, 0, 0.5, 0)
  19. z:circle(0, 0, 1)
  20. z:fill()
  21.  
  22. -- hole
  23. r=1-sqrt(2)/2
  24. z:setcolor("both", "rgb", 1, 1, 1, 0)
  25. z:circle(1-2*r, 1-2*r, r)
  26. z:fill()
  27.  
  28. -- moon
  29. z:setcolor("both", "rgb", 0, 0, 0.5, 0)
  30. z:circle(1, 1, r)
  31. z:fill()
  32.  
  33. -- logo
  34. font = z:findfont("Helvetica", "host", 0)
  35. z:setfont(font, 0.6)
  36. x=z:stringwidth("Lua", font, 0.6)
  37. z:setcolor("both", "rgb", 1, 1, 1, 0)
  38. z:show_xy("Lua", -x/2, -0.5)
  39. z:setcolor("both","rgb",0,1,0,0)
  40. z:setfont(font, 0.2)
  41. z:continue_text("Hi Nicholas")
  42.  
  43. -- orbit
  44. z:setlinewidth(0.03)
  45. x=(1+r)*(PI/180*5)
  46. z:setdash(x,x)
  47. z:setcolor("both", "gray", 0.5, 0, 0, 0)
  48. z:arcn(0, 0, 1+r, 32, 57)
  49. z:stroke()
  50.  
  51. z:END()
  52.